From: Richard M. Stallman Date: Sat, 5 Mar 1994 23:28:35 +0000 (+0000) Subject: (jka-compr-insert-file-contents): Handle 5th arg. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92843 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=54b2aa5c65269cf635f755a11a1d01c03f7772d8;p=emacs.git (jka-compr-insert-file-contents): Handle 5th arg. --- diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 1519e056c21..ffc7156eff8 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -465,7 +465,7 @@ There should be no more than seven characters after the final '/'") (write-region start end filename append visit)))) -(defun jka-compr-insert-file-contents (file &optional visit beg end) +(defun jka-compr-insert-file-contents (file &optional visit beg end replace) "Documented as original." (barf-if-buffer-read-only) @@ -560,7 +560,7 @@ There should be no more than seven characters after the final '/'") (list filename size)) - (insert-file-contents file visit beg end)))) + (insert-file-contents file visit beg end replace)))) (defun jka-compr-file-local-copy (file)